home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Date-Time, Determining leap year < prev    next >
Encoding:
Text File  |  1997-07-16  |  239 b   |  9 lines
  1. Description: Function returns True if year is a leap year
  2.  
  3. 'Function IsLeapYear(ByVal sYear As String) As Boolean
  4.      If IsDate("02/29/" & sYear) Then
  5.             IsLeapYear = True
  6.     Else
  7.             IsLeapYear = False
  8.     End If
  9. 'End Function